home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  434b  |  16 lines
  1. 5 base=2*4096:poke 53272,peek(53272) or 8 :rem bitmap ab 8192
  2. 10 poke 53265,peek(53265) or 32:rem bitmapmodus einschalten
  3. 20 for i=base to base+7999:poke i,0:next:rem bitmap loeschen
  4. 30 for i=1024 to 2023:poke i,3:next:rem farben auf cyan und schwarz
  5. 50 for x=0 to 319 step .5:rem funktion fuellt bildschirm
  6. 60 y=int(90+80*sin(x/10))
  7. 70 ch=int(x/8)
  8. 80 ro=int(y/8)
  9. 85 ln=y and 7
  10. 90 by=base+ro*320+8*ch+ln
  11. 100 bi=7-(x and 7)
  12. 110 poke by,peek(by) or (2^bi)
  13. 120 next x
  14. 125 poke 1024,16
  15. 130 goto 130
  16.